program test
use parent

integer :: a, b

call my_sub1(a)
call my_sub2(b)

end program test